inherited MeetingDM: TMeetingDM
  OldCreateOrder = True
  inherited SqlControl: TSQLDataSet
    SchemaName = 'sysdba'
    CommandText = 
      'SELECT M.MEETING_ID,'#13#10'M.TOPIC,'#13#10'M.DURATION,'#13#10'M.STARTDATE,'#13#10'M.STA' +
      'RTTIME,'#13#10'M.USER_ID,'#13#10'U.NAME AS USER_NAME,'#13#10'M.ROOM_ID,'#13#10'R.NAME AS' +
      ' ROOM_NAME,'#13#10'M.LASTCHANGE'#13#10'FROM  MEE  M'#13#10'LEFT OUTER JOIN USERS U' +
      ' ON (M.USER_ID =  U.USER_ID)'#13#10'LEFT OUTER JOIN ROOM R ON (M.ROOM_' +
      'ID = R.ROOM_ID)'#13#10'WHERE M.STARTDATE >= '#39'TODAY'#39
    Top = 48
    object SqlControlMEETING_ID: TIntegerField
      DefaultExpression = '0'
      FieldName = 'MEETING_ID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object SqlControlTOPIC: TStringField
      FieldName = 'TOPIC'
      Size = 50
    end
    object SqlControlDURATION: TTimeField
      FieldName = 'DURATION'
    end
    object SqlControlSTARTDATE: TDateField
      FieldName = 'STARTDATE'
    end
    object SqlControlSTARTTIME: TTimeField
      FieldName = 'STARTTIME'
    end
    object SqlControlUSER_ID: TIntegerField
      FieldName = 'USER_ID'
    end
    object SqlControlUSER_NAME: TStringField
      FieldName = 'USER_NAME'
      ProviderFlags = []
      Size = 100
    end
    object SqlControlROOM_ID: TIntegerField
      FieldName = 'ROOM_ID'
    end
    object SqlControlROOM_NAME: TStringField
      FieldName = 'ROOM_NAME'
      ProviderFlags = []
      Size = 50
    end
    object SqlControlLASTCHANGE: TDateField
      FieldName = 'LASTCHANGE'
    end
  end
  inherited dspControl: TDataSetProvider
    AfterUpdateRecord = dspControlAfterUpdateRecord
    BeforeUpdateRecord = dspControlBeforeUpdateRecord
    Left = 176
    Top = 48
  end
  inherited cdsControl: TClientDataSet
    BeforeEdit = cdsControlBeforeEdit
    BeforePost = cdsControlBeforePost
    AfterScroll = cdsControlAfterScroll
    OnNewRecord = cdsControlNewRecord
    Left = 256
    Top = 48
    object cdsControlMEETING_ID: TIntegerField
      DefaultExpression = '0'
      DisplayLabel = 'Meeting ID'
      FieldName = 'MEETING_ID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object cdsControlTOPIC: TStringField
      DisplayLabel = 'Topic'
      FieldName = 'TOPIC'
      Size = 50
    end
    object cdsControlDURATION: TTimeField
      DisplayLabel = 'Duration'
      FieldName = 'DURATION'
      OnChange = cdsControlDURATIONChange
    end
    object cdsControlSTARTDATE: TDateField
      DisplayLabel = 'Date'
      FieldName = 'STARTDATE'
      EditMask = '!99/99/00;1;_'
    end
    object cdsControlSTARTTIME: TTimeField
      DisplayLabel = 'Start Time'
      FieldName = 'STARTTIME'
      EditMask = '!90:00;1;_'
    end
    object cdsControlUSER_ID: TIntegerField
      DisplayLabel = 'User ID'
      FieldName = 'USER_ID'
    end
    object cdsControlUSER_NAME: TStringField
      DisplayLabel = 'User Name'
      FieldName = 'USER_NAME'
      ProviderFlags = []
      Size = 100
    end
    object cdsControlROOM_ID: TIntegerField
      DisplayLabel = 'Room ID'
      FieldName = 'ROOM_ID'
    end
    object cdsControlROOM_NAME: TStringField
      DisplayLabel = 'Room Name'
      FieldName = 'ROOM_NAME'
      ProviderFlags = []
      Size = 50
    end
    object cdsControlLASTCHANGE: TDateField
      DisplayLabel = 'Last Change'
      FieldName = 'LASTCHANGE'
    end
  end
  object sqlParticipants: TSQLDataSet
    SchemaName = 'sysdba'
    CommandText = 
      'SELECT  PAR.MEETING_ID,'#13#10'PAR.USER_ID,'#13#10'USE.NAME AS USER_NAME '#13#10'F' +
      'ROM PARTICIPANT PAR'#13#10'LEFT OUTER JOIN USERS USE ON (PAR.USER_ID =' +
      ' USE.USER_ID)'#13#10'WHERE PAR.MEETING_ID = :MEETING_ID'
    DbxCommandType = 'Dbx.SQL'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'MEETING_ID'
        ParamType = ptInput
      end>
    SQLConnection = MainDM.SQLConnection
    Left = 88
    Top = 112
    object sqlParticipantsMEETING_ID: TIntegerField
      FieldName = 'MEETING_ID'
      Required = True
    end
    object sqlParticipantsUSER_ID: TIntegerField
      FieldName = 'USER_ID'
      Required = True
    end
    object sqlParticipantsUSER_NAME: TStringField
      FieldName = 'USER_NAME'
      ProviderFlags = []
      Size = 100
    end
  end
  object dspParticipants: TDataSetProvider
    DataSet = sqlParticipants
    ResolveToDataSet = True
    Options = [poIncFieldProps, poAutoRefresh, poPropogateChanges, poAllowCommandText, poUseQuoteChar]
    UpdateMode = upWhereChanged
    Left = 176
    Top = 112
  end
  object cdsParticipants: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'MEETING_ID'
        ParamType = ptUnknown
      end>
    ProviderName = 'dspParticipants'
    Left = 256
    Top = 112
    object cdsParticipantsMEETING_ID: TIntegerField
      DefaultExpression = '0'
      FieldName = 'MEETING_ID'
      Required = True
    end
    object cdsParticipantsUSER_ID: TIntegerField
      FieldName = 'USER_ID'
      Required = True
    end
    object cdsParticipantsUSER_NAME: TStringField
      FieldName = 'USER_NAME'
      Size = 100
    end
  end
  object sqlSearchPart: TSQLDataSet
    SchemaName = 'sysdba'
    CommandText = 
      'SELECT  USER_ID,'#13#10'U.NAME AS USER_NAME'#13#10'FROM USERS U'#13#10'WHERE U.USE' +
      'R_ID NOT IN (SELECT P.USER_ID'#13#10'FROM PARTICIPANT P'#13#10'WHERE P.MEETI' +
      'NG_ID = :MEETING_ID)'
    DbxCommandType = 'Dbx.SQL'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'MEETING_ID'
        ParamType = ptInput
      end>
    SQLConnection = MainDM.SQLConnection
    Left = 88
    Top = 168
    object sqlSearchPartUSER_ID: TIntegerField
      FieldName = 'USER_ID'
      Required = True
    end
    object sqlSearchPartUSER_NAME: TStringField
      FieldName = 'USER_NAME'
      Size = 100
    end
  end
  object dspSearchPart: TDataSetProvider
    DataSet = sqlSearchPart
    Options = [poIncFieldProps, poAutoRefresh, poPropogateChanges, poAllowCommandText, poUseQuoteChar]
    UpdateMode = upWhereChanged
    Left = 176
    Top = 168
  end
  object cdsSearchPart: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'MEETING_ID'
        ParamType = ptUnknown
      end>
    ProviderName = 'dspSearchPart'
    Left = 256
    Top = 168
    object cdsSearchPartUSER_ID: TIntegerField
      FieldName = 'USER_ID'
      Required = True
    end
    object cdsSearchPartUSER_NAME: TStringField
      FieldName = 'USER_NAME'
      Size = 100
    end
  end
end
